// Card removal NPC by TyrNemesis^
// DANGEROUS! TODO: Think.. think 8) [Lupus]
// Transelated By Memory.

prt_in,28,73,4	script	dѱCC	78,{

UPGRADEROOT:
	mes "[dѱCC]";
	mes "An~~~H.ڥiHϥ]kAU˳ƤWd.AwoAȶ?";
	next;
	menu "O.",REMOVEMENU,
	     "AOhְ?",REMOVEPRICE,
	     ",.",CLOSEOUT;

REMOVEPRICE:
	mes "[dѱCC]";
	mes "....@˳ƻݭnI^4040FF200000z^000000Zeny.";
	mes "@id[^4040FF25000z^000000Zeny.";
	mes "t~,ڻݭn@^4040FFPP^000000M^4040FF]Oq^000000ӻU.";
	next;
	menu "ڨa.",REMOVEMENU,
	     "QQ٬OF.",CLOSEOUT;

REMOVEMENU:
	mes "[dѱCC]";
	mes "QA@˳ƩO?";
	next;
	menu "..ڷQQ.",CLOSEOUT,
	     getequipname(1),SLOT1,
	     getequipname(2),SLOT2,
	     getequipname(3),SLOT3,
	     getequipname(4),SLOT4,
	     getequipname(5),SLOT5,
	     getequipname(6),SLOT6,
	     getequipname(7),SLOT7,
	     getequipname(8),SLOT8,
	     getequipname(9),SLOT9,
	     getequipname(10),SLOT10;

SLOT1:
	set @part,1;
	goto CARDNUMCHECK;

SLOT2:
	set @part,2;
	goto CARDNUMCHECK;

SLOT3:
	set @part,3;
	goto CARDNUMCHECK;

SLOT4:
	set @part,4;
	goto CARDNUMCHECK;

SLOT5:
	set @part,5;
	goto CARDNUMCHECK;

SLOT6:
	set @part,6;
	goto CARDNUMCHECK;

SLOT7:
	set @part,7;
	goto CARDNUMCHECK;

SLOT8:
	set @part,8;
	goto CARDNUMCHECK;

SLOT9:
	set @part,9;
	goto CARDNUMCHECK;

SLOT10:
	set @part,10;
	goto CARDNUMCHECK;

CARDNUMCHECK:
	if(getequipcardcnt(@part) == 0) goto DENYCARDCOUNT;
	set @cardcount,getequipcardcnt(@part);

	// Ensure there is room for the items.
	if (!checkweight(1202,(@cardcount+1))) { 
		mes "^3355FFJust a minute!";
		mes "I can't offer any of my";
		mes "services to you because";
		mes "you're carrying too much";
		mes "stuff. Put your extra items in";
		mes "Kafra Storage and come again~";
		close;
	}

	if(@cardcount > 1) goto CARDNUMMULTIMSG;
	mes "[dѱCC]";
	mes "o˳ƪѤWwgWF" + @cardcount + "id. AI^0000FF" + (200000+(@cardcount * 25000)) + "Zeny^000000M^0000FFPP^000000M^0000FF]Oq^000000.";
	goto CARDNUMPOSTMSG;
CARDNUMMULTIMSG:
	mes "[dѱCC]";
	mes "o˳ƪѤWwgWF" + @cardcount + "id. I^0000FF" + (200000+(@cardcount * 25000)) + "Zeny^000000M^0000FFPP^000000M^0000FF]Oq^000000..";
CARDNUMPOSTMSG:
	next;
	menu ",}la.",REMOVECARDWARNING,
	     "٨SǳƦn.",CLOSEOUT;

REMOVECARDWARNING:
	mes "[dѱCC]";
	mes "b}leڱoiDA--ϥγo]kU@ѤF.|laFdθ˳. ^FF4040|v^000000A.pGla^FF4040AQOdd٬O˳^000000O?";
	next;
	menu "F...",CLOSEOUT,
	     "˳.",PRIORITYITEM,
	     "d.",PRIORITYCARD;

PRIORITYITEM:
	set @failtype,1;
	goto REMOVECARD;

PRIORITYCARD:
	set @failtype,2;
	goto REMOVECARD;

REMOVECARD:
	mes "[dѱCC]";
	mes "ڶ}lF.";
	if((zeny < (200000+(@cardcount * 25000))) || (countitem(1000) < 1) || (countitem(715) < 1)) goto DENYMATERIAL;
	set zeny,zeny - (200000+(@cardcount * 25000));
	delitem 1000,1;
	delitem 715,1;
// Replace the constants in the next 3 lines with failure chance values defined in refine_db.txt
// First value = Total failure chance (item and cards destroyed)
// Second value = Partial failure chance (one or the other is destroyed, player decides which one is safe)
// Third value = Harmless failure chance (all that's lost is your investment)

	set @failchance,rand(100);
//	if(@failchance < 2) goto FAILREMOVECARD0;
//	if((@failchance < 8) && (@failtype == 1)) goto FAILREMOVECARD1;
//	if((@failchance < 8) && (@failtype == 2)) goto FAILREMOVECARD2;
	if(@failchance < 10) goto FAILREMOVECARD3;
	successremovecards @part;
	next;
	mes "[dѱCC]";
	mes "j\i. oOAdMD.A.";
	close;

FAILREMOVECARD0:
	failedremovecards @part,0;
	next;
	mes "[dѱCC]";
	mes "uV|F.dM˳ƳaF.";
	close;

FAILREMOVECARD1:
	failedremovecards @part,1;
	next;
	mes "[dѱCC]";
	mes "̾ߪƱשoͤF.daF,n˳٦b.";
	close;

FAILREMOVECARD2:
	failedremovecards @part,2;
	next;
	mes "[dѱCC]";
	mes "ާڤwg]kNdq˳ƪѤ,٬OQlaF.n,˳٬On.";
	close;

FAILREMOVECARD3:
	failedremovecards @part,3;
	next;
	mes "[dѱCC]";
	mes " B@~˳ƩMdS.";
	close;

DENYCARDCOUNT:
	mes "[dѱCC]";
	mes "C~H,DWSd.";
	close;

DENYMATERIAL:
	next;
	mes "[dѱCC]";
	mes "ASƱa.";
	close;

CLOSEOUT:
	mes "[dѱCC]";
	mes "ܦn,HHɳiHӧ.";
	close;
}
